# Mathematical convenience functions #### Prev <- function(x){ length(x[x>0])/length(x) } logistic <- function(a) exp(a)/(1 + exp(a)) logit <- function(a) log(a/(1-a))
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.